home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / DTP / A-F / FreeLancer1.1.cpt / FreeLancer 1.1 / Job stack / stack_-1.xml < prev    next >
Extensible Markup Language  |  1990-12-05  |  2KB  |  20 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>1</cardCount>
  7.     <cardID>5457</cardID>
  8.     <listID>2619</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>424</height>
  15.     </cardSize>
  16.     <script>on startUpdoMenu "Scroll"end startUpon openStackgo lastset the userLevel to 5if the visible of bg btn id 49 is true thensend mouseUp to bg btn "billing"show bg btn "show billing"hide bg btn "hide billing"end ifend openStackon openCardglobal mat, mech, otherput fld "mat" into matput fld "mech" into mechput fld "other" into otherput the number of this card && "of" && the number of cards into fld "card#"end openCardon closeCardglobal mat, mech, otherput mat into fld "mat"put mech into fld "mech"put other into fld "other"end closeCardon newCardlock screengo lastset the cursor to busypass newCardget the number of this cardget fld "number" of cd it-1put it into oldNumberif it < 10 then put "000" into leaderelse if it < 100 then put "00" into leaderelse if it < 1000 then put "0" into leaderelse put "" into leaderput leader & oldNumber+1 into fld "number"unlock screenend newCardon closeStackglobal showInvoiceput false into showInvoiceend closeStack</script>
  17.     <background id="3805" file="background_3805.xml" name="" />
  18.     <card id="5457" file="card_5457.xml" marked="false" name="" owner="3805" />
  19. </stack>
  20.